unit Unit2;

interface

uses
  Classes;

type
  ThrPath = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation
uses Unit1;

procedure ThrPath.Execute;
begin
 FreeOnTerminate:=True;
 Form1.Path;
end;

end.
